10 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(5):POKE650,128
20 S=54272
30 FORL=0TO24:POKES+L,0:NEXT
40 POKE54277,108:POKE54278,96:REM ADSR
50 POKE54295,1:REM RESONANT FILTER
60 POKE54296,31:REM HIGH-PASS IS 79,     BANDPASS IS 45, LOW-PASS IS 31
70 FORT=1TO9:PRINT:NEXT:PRINTTAB(12)"TURN UP VOLUME.
75 [153]:[153][163]6):[133]"HOW FAST (0=FAST 500=SLOW)";D
80 [153]:[153][163]7)"HOLD ANY KEY TO HEAR TUBA."
90 [135]X,Y:[139]X[178][171]1[167][128]
100 [151]54273,X:[151]54272,Y:[143] FREQ
110 [161]A$:[139]A$[178]""[167]110
120 [151]54276,33:[143] TURNS NOTE ON
130 [129]T[178]255[164]1[169][171]10:[151]54294,T:[130]:[129]T[178]1[164]D:[130]:[151]54276,32
140 [143] TRY ALSO 1 TO 255 STEP 5
150 [137]90
160 [131]5,185,5,103,4,208,4,73,3,210,3,155,3,54,2,220,-1,-1